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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL tM EGORPORATION, MAYNARD. MASSACHUSETTS. 


ALL RIGHTS RESER 


THIS SOFTWARE IS gi ae UNDER A LICENSE AND MAY BE USED AND sores 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS Bt 
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SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 
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FACILITY: EXECUTIVE, EVENT FLAG SERVICES 


ABSTRACT: SYSEVTSRV IMPLEMENTS THE CLEAR READ AND SET EVENT FLAG SYSTEM 
SERVICES AND CONTAINS THE INTERNAL CLEAR EVENT FLAG ROUTINE. 
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VERSION: 
PAGE 
-SBTTL HISTORY ; DETAILED 
> AUTHOR: 
3 R. HUSTVEDT : VERSION 
: MODIFIED BY: 
; V02-005 SRB0036 Steve Beckhardt 27-0c t-1981 
3 Changed SCHSGETEFC to always return via RSB. Changed 
; SCHSCLREF and SCHSREAD DEF to do the RET on error. Added 
0 $ alternate entry point SCHSCLREFR to es return via RSB. 
° : v02-004 LsK0024 Lawrence J. Kena May 19 
0 ; nly take fast exit path out of aI SETEF if” call to O CHSPOSTEF 
3 : oan successful. This insures that system service eacegt tens 
3 work correctly. Introduce symbolic offset for saved F 
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~SBTTL EXESCLREF = CLEAR EVENT FLAG SERVICE 


Voee 000 EXE 
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AN EVENT FLAG, 


; CALLING eae 
; CAL ARGLIST, EXESCLREF 


: INPUT PARAMETERS: 
; 04(AP) = EVENT FLAG NUMBER TO BE CLEARED 
: R4 = PCB ADDRESS OF CURRENT PROCESS 
: IMPLICIT INPUTS: 

: OUTPUT PARAMETERS: 
: RO = COMPLETION STATUS CODE, ERROR IF BIT O IS SET. 
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1 . 
101 : IMPLICIT OUTPUTS: 
102: THE EVENT FLAG SPECIFIED WITHIN THE CLUSTER SPECIFIED 
1S CLEARED. 
1 COMPLETION CODES: 
1 SS$_WASCLR - EVENT FLAG WAS ALREADY CLEAR 
1 SSE -WASSET - EVENT FLAG WAS SET 
1 SS$"ILLEFC = ILLEGAL CLUSTER NUMBER (I.E. 4 - 7) 
SSS$"UNASEFC - UNASSIGNED CLUSTER NUMBER 
1 SIDE EFFECTS 
1 NONE 
1 
1 cdl 
1 
118 EXESCLREF:: ; CLEAR EVENT FLAG aah E 
001c 00 1 / CRD AR R4> + ENTRY MASK SAVING TRG 
53 046 aC 9A 00 1 MOVZBL (AP) 8 : GET EVENT FLAG NGanth 
49. «1 1 BSBB EESCLRER + CALL INTERNAL ROUTINE 
SD OC AD OD 1 MOVL Sree SAVE_FP(FP) FP t RESTORE FRAME POIN 
—E 00° ¢ 1 ADDL  S*#EXESC E EMS KS2. SP : CLEAN STACK BACK TO PC, PSL 
0 1 REI + RETURN 
0 1 
0 1 
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LSBTTL SCHSGETEFC - GET ADDRESS OF EVENT FLAG CLUSTER 
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COMPLETION CODES: 
SS$_NORMAL = NORMAL COMPLETION STATUS 
SS$"ILLEFC = ILLEGAL CLUSTER NUMBER 
SSS"UNASEFC = UNASSIGNED CLUSTER NUMBER 


p++ 

+ FUNCTION: 

; SCHSGETEFC COMPUTES THE ADDRESS OF THE EVENT FLAG CLUSTER 
; SELECTED BY THE EVENT FLAG NUMBER IN R3. THE EVENT FLAG CLUSTER 
; ADDRESS IS RETURNED IN R2. 

: CALLING SEQUENCE: 

; BSBB/BSBW/JSB SCHSGETEFC 

+ INPUT PARAMETERS: 

; R3 = EVENT FLAG NUMBER 

; R4 = PCB ADDRESS 

: OUTPUT PARAMETERS: 

; RO = STATUS CODE 

; Ri = IF LOCAL CLUSTER, (0 OR -1) 

; IF COMMO NC CLUSTER, (2 OR 1) 

; Re - ADDRESS OF EVENT FLAG CLUSTER 

; - EVENT FLAG NUMBER WITHIN CLUSTER 
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SCHSGETEFC:: : GET ADDRESS OF EVENT FLAG CLUSTER 
50 01 «3¢ MOVZWL pers NORMAL RO t ASSUME NORMAL COMPLETION 
51 53 03 05 FE TV : EXTRACT CLUSTER ER 
25 «1 BLSS : ILLEGAL WITH 4,5,6 ; 
52. 50 A441 OE MOVAL PCBS srcsinaseerh. ae ; ADDR OF EF VECTOR 
53 FFFFFFEO BF CA BICL #*C<*R1F>,R : EXTRACT EVENT NUMBER WITHIN CLUSTER 
0151 =F 5S SOBGTR R1,10 : BR IF COMMON 
05 RSB : RETURN WITH SUCCESS 
52 62 10 (C7 10$: ADDL3 #CEBSL_EFC,(R2),R2 ; GET POINTER TO CEB EVENT MASK 
15 18 BGEQ 4 B ASSIGNED 
FAA2 20 91 CMPB ss #D YNSC_SLAVCEB, <CEBSB_ TybE=CeBSL EFC>(R2) ; IS THIS A SLAVE CEB? 
01 I3 BEQL : BR LAVE, FIND MASTER 
0 RSB : PE TURN WIvH SUCCESS 


; COMPUTE ADDRESS OF MASTER CEB IN SHARED MEMORY. 
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52 30 } D 20$: MOVL <CEBSL -NASTER-CEBSL -£FC>(R2) R2 ; GET ADR OF SH MEM MASTER CEB 
, (CY ¢ ADoL2 #CEBSL-EFC,R2 POINT f0 EFC IN MASTER CEB 
50 OOEC 8F 3¢ 30$: MOVZWL #SS$_ILLEFC,RO : SET ERROR CODE FOR ILLEGAL EFC 
0 4 RSB : AND RETURN 
50 0234 8F 3C 004 40$:  MOVZWL #SS$_UNASEFC,RO : SET ERROR CODE FOR UNASSIGNED 
05 004 RSB > AND RETURN 
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ibaa thy SCHSCLREF = CLEAR EVENT FLAG (INTERNAL F §-§ sats vi 8g: 9%: 3 Heys. SRCISYSEVTSRV.MAR; 1 . ad) 

4B j .SBTTL SCHSCLREF = CLEAR EVENT FLAG (INTERNAL FORM) 
48 4 ; SCHSCLREF = CLEAR EVENT FLAG, INTERNAL FORM 
48 1 : + CALLING SEQUENCE: 
4B ; JSB/BSB SCHSCLREF 
4B ; ; SCHSCLREF WILL RETURN VIA RET RATHER THAN THE NORMAL RSB ON ERROR 
48 191 : SCHSCLREFR iS AN ALTERNATE ENTRY POINT THAT ALWAYS RETURNS VIA RSB. 
48 138 : INPUT 
48 194: R3 - EVENT FLAG NUMBER, ZERO FILLED. 
48 195 : R4 = PCB ADDRESS 
048 199 + OUTPUT 
a8 198 ; RO = COMPLETION STATUS, ERROR IF BIT 0 CLEAR. 
4B 200 : COMPLETION CODES: 
048 201: SS$_WASCLR = EVENT FLAG WAS ALREADY CLEAR 
048 0¢ : SS$"WASSET - EVENT FLAG WAS SET 
048 203: SS$"ILLEFC = ILLEGAL CLUSTER 
048 04 ; SS$"UNASEFC = UNASSIGNED CLUSTER HUMBER 
048 206° 
48 0? .ENABL LSB 
048 09 SCHSCLREFR:: ; CLEAR EVENT FLAG (AND RETURN TO CALLER) 

(3 10 0048 210 BSBB =: SCHSGETEFC : GET ADDRESS OF EVENT FLAG CLUSTER 

06 50 Es 40 211 BLBS RO, 5$ : ON SUCCESS JOIN COMMON CODE 
5 930 1 RSB + RETURN ON FAILUR 

051 14 SCHSCLREF:: ; CLEAR EVENT FLAG INTERNAL 

BD 10 0051 215 BSBB  - SCHSGETEFC : GET ADDRESS OF ge VENT FLAG CLUSTER 

08 50 £9 0053 18 BLBC _——RO, 208 : BRANCH IF ERR 
056 «21 ASSUME S$S$_WASCLR EQ SS$_NORMAL 
056 18 ; $S$_NORMAL RETURNED BY SCHSGETEFC 
03 62 53 £7 0056 219 S$: BBCCI R3,(R2),10$ : CLEAR AND TEST FLAG 
50 09 BO O5A 0 MOVL #55$_WASSET,RO + REPORT STATUS 
0 50 1 10$:  RSB : RETURN TO CALLER 
04 OSE 208: RET ; EXIT SERVICE IF ERROR 

Sef 5 .DSABL LSB 
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Mitatit EXESREADEF - READ EVENT FLAG SYSTEM SERV §-§ sets 86: 94: 83 Heys. SRCJSYSEVTSRV.MAR; 1 ” d) Tat 
F 7 - «SBTTL EXESREADEF - READ EVENT FLAG SYSTEM SERVICE 
F ; FUNCTIONAL | DESCRIPTION: 
F ; READEF IMPLEMENTS THE READ EVENT FLAG SYSTEM SERVICE wHicH 
F ; it THE STATE OF THE EVENT FLAG CLUSTER SELECTED BY THE 
: § 3 SPELITIED EVENT FLAG NUMBER. 
F 4 : CALLING SEQUENCE: 
i 5: CALLG  ARGLIST,EXESREADEF 
F 5 ¢ INPUT PARAMETERS: 
F § ; 4(AP) = EVENT FLAG NUMBER TO SELECT PROPER CLUSTER 
F ; BLAP) = ADDRESS TO STORE STATE OF EVENT FLAG CLUSTER 
f 40 ; R4 = PCB ADDRESS OF CURRENT PROCESS 
F 4¢ ; OUTPUT PARAMETERS: 
F 263; RO = COMPLETION STATUS CO 
a 44 ; B(AP) = STATE OF 3 EVENTS IN SPECIFIED CLUSTER 
0 3 46 : COMPLETION CODES: 
O5F 247: SS$_WASSET = SPECIFIC EVENT FLAG IS CURRENTLY SET 
O5F 48 ; See -WASCLR - SPECIFIC EVENT FLAG IS CURRENTLY CLEAR 
O5F 249: SSS"ILLEFC = ILLEGAL EVENT FLAG CLUSTER NUMBER 
005 50 : SSS"UNASEFC = UNASSIGNED EVENT FLAG CLUSTER 
’ ad ° VIOL 
3 t SS$"ACCVIO ACCESS VIOLATION ON WRITE DESTINATION 
O5F 253 :-- 
O5F 254 
OSF 255 EXESREADEF:: ; READ EVENT FLAG SYSTEM SERVICE 
001¢ 005F 36 “WORD “M<R2,R3,R4> t ENTRY MASK SAVING R2,R3,R4 
53 04 aC 9A 0061 5 MOVZBL EFN(AP),R3 : GET EVENT FLAG NUMB 
9 10 $3 38 SBB SCHSGETEF.C : GET EFC ADDRESS AND CONTENT 
18 50 «£9 006 5 BLBC _—RO, 208 + BRANCH ON ERROR 
06A 260 ASSUME SS$ WASCLR EQ SS$_NORMAL 
51 O08 AC DO 006A 261 MOVL  MASRP(AP).R1 : GET ADDRESS OF DESTINATION 
06 6¢ IFNOWRT #4,(R1),10$ : TEST FOR 
61 $2 D0 0074 26 MOV CR 8), crf) : STORE OVENT FLAG BIT VECTOR 
07 61 1 0077 264 BBC ath 208 : EXIT IF CLEA 
50 09 3c 078 65 MOVZWL Rees _WASSET,RO : RETURN SET STATUS CODE 
: VZWL ball Vv . Py V 
50 oc %3C OO7F 83 10$ MOVZWL #SS$_ACCVIO,RO SET ACCESS VIOLATION 
08¢ 68 20$: RET + AND RETURN 
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vou=008 ext SETEF - sti EVENT FLAG SERVICE $23 Pa 984 84:93:82 SYS.SRCISYSEVTSRY.MAR; 1 ” (1) 
" «SBTTL EXESSETEF = SET EVENT FLAG SERVICE 
ated 573 DESCRIPTION: 
XESS 


~~~ 
wn 


: ETEF IMPLEMENTS THE SET EVENT FLAG SERVICE WHICH SETS 
5; HE SPECIFIED EVENT FLAG AND CAUSES ANY APPROPRIATE RESCHEDULING. 
5 ; CALLING SEQUENCE: 
A: ; CALLG  EXESSETEF 
0 : INPUT PARAMETERS: 
; O4(AP) = EVENT FLAG NUMBER 
; ; R4 = PCB ADDRESS OF CURRENT PROCESS 
4 : IMPLICIT INPUTS: 
; CURRENT PCB LOCATED VIA SCHSGL_CURPCB 
§ : OUTPUT PARAMETERS: 
: ; RO = COMPLETION STATUS CODE 
0 0 : COMPLETION CODES: 
00 91 ; SS$_WASCLR = SPECIFIED EVENT WAS CLEAR INITIALLY 
3 ; SS$S"WASSET = SPECIFIED EVENT WAS SET INITIALLY 
0 93 ; SS$-ILLEFC = ILLEGAL CLUSTER NUMBER 
0 94 : SSS"UNASEFC = UNASSIGNED EVENT FLAG CLUSTER R 
0 99 ; SS$"BADQUEUEHDR = UNABLE TO MAKE PROCESSOR REQUEST TO UPDATE SLAVE CEB 
9 3 t-- 
0 99 EXESSETEF:: ; SET EVENT FLAG SYSTEM SERVICE 
3¢ 00 .WORD “M<R2,R3,R4,R5> : ENTRY MASK SAVING R2,R3,R4,R 
5 04 ac 9A 00 1 MOVZBL EFN(AP),R3 : GET EVENT FLAG NUMBER 
1 6004 OD 9 : MOVL BcBst Pip (Ra) R1 ; GET PROCESS ID (PID) 
2 p MOVL #PRIS~IOCOM,R2 : SET PRIORITY INCREMENT CLASS 
FF6D" 4 BSBW SCHSPOSTEF : POST EVENT FLAG 
08 50 ~E 9 5 BLBC ~—_-«aRO, 108 : DON'T USE FAST EXIT IF ERROR 
SD OC DO 0096 : MOVL SFSL_SAVE_FP(FP),FP + RESTORE FRAME POINTER 
SE C 9A ADDL S*#ERESC_CMSTKSZ,SP ; CLEAN STACK BACK TO PC,PSL 
0 90 08 REI : AND RETURN 
04 009E 310 108 RET ; EXIT THROUGH CHANGE MODE DISPATCHER 
Hi 1 : COMMON EXIT PATH IF ERROR 
09F ig END 


" 


$AB 
AE XENONPAGED 


Phase 


Symbo 


rki 
bytes t é 


Initialization 
ommand processing 


1 
Puss. ¢ iable sort 


table output 
Psect synopsis outpu 
Cross-reference output 
Assembler run totals 


~ EVENT FLAG SERVICES 


‘ 
j 


"SSEp=158¢ 08:58:68 ESNSSRCHSISEW Saveman: 1 


SRSSSS 


00888 ¥ +? 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
sai 1 ¢ 7.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
oF } 2¢ 2.) NOPIC USR CON L LCL NOSHR EXE R&D WRT NOVEC BYTE 

; oo + 


:00:00. :00:01.21 
1 :00:00. :00:05.47 
26 :00:07. :00:28.1 
7:00:01. :00:035.1 
:00:01.4 :00:03.4 
4 :00:00. :00: 45 
- :00:10. 00:41. 


Limit was 1350 pages. 
pages) of virtual memory were used to buffer_the intermediate 
tr re were 40 pages of s 


de. 
Ll table Pace al = d to hold 780 non-local ane 18 local symbols. 


) source Lines were rend n Pass 1 o roduc ng) object records in Pass 
6 pages of virtual memory were used to detin e 1 


macros. 
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! Macro Library statistics ! 
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Macro gt name Macros defined 
5 sys. 08, JL18.MLB;1 
EET TAIN 38:8 YSLI ISTARLET. MLB;2 é 
TOTAL att bes es) 1 


866 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSEVTSRV/OBJ=OBJ$:SYSEVTSRV MSRCS$:SYSEVTSRV/UPDATE=(ENHS: SYSEVTSRV) +EXECMLS/LIB 
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